home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / CSound / convert-to-csound next >
Lisp/Scheme  |  1998-10-25  |  801b  |  38 lines
  1. convert-to-csound length-pattern
  2.  
  3. converts ordinary length-patterns (ratios or ticks) into seconds in real-time
  4. for use with csound
  5. outputs two lists where the first is the attacks and the second is the lengths.
  6.  
  7. here is a bogus-example on how it could be used:
  8. (depending on what the csound orchestra-file looks like)
  9.  
  10. (setq rhy (symbol-trim 34 '(1/4 1/4 -1/4 1/4 1/4 -1/8 1/2 1/16 1/16)))
  11.  
  12. (setq strt (car (convert-to-csound rhy)))
  13. (setq len (cadr (convert-to-csound rhy)))
  14.  
  15. (setq l (length len))
  16.  
  17.  
  18.  
  19. (setq ampl (let ((result nil))
  20.   (dotimes (i l)
  21.     (push (get-random 1000 8000) result))
  22.   result))
  23.  
  24. (setq ptch (let ((result nil))
  25.   (dotimes (i l)
  26.     (push (get-random 100 500) result))
  27.   result))
  28.  
  29.  
  30. (print-csound 
  31. "ccl:test.sco"
  32. '((f1 0 4096 10 1 0.5 0.1))
  33. 'i1
  34. :overwrite
  35. t
  36. strt len ampl ptch)
  37.  
  38.